Top 10k strings from MicroHobby Semanal - Issue 009-012 (1985)(Hobby Press)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
5 ;" "
3 a(n,m));a(n,m):
2 superficie
2 saldo=saldo-cant:
2 printer2=1
2 minas espaciales
2 m;"- ";b$(m);": ";a$(n,y
2 m+a;"- ";c$(m);
2 ;"S O F T W A R E
2 ;"REBOBINA Y VERIFICAREMOS"
2 ;"Para continuar pulsa una tecla":
2 ;"PULSA UNA TECLA":
2 ;"GAME OVER"
2 ;"ESPERA UN POCO"'''"ACASO CREES QUE SOY UNA MAQUINA?"''''"ESTOY CLASIFICANDO"
2 ;"DIAMANTES"
2 ;" ";
2 PULSA UNA TECLA PARA CONTINUAR
2
2
2
2
1 z$=p$(sis)
1 z$="SUPERFICIE MINADA!!":
1 z$="SISTEMA PLANETARIO ?":
1 z$="SALIDA DEL SISTEMA":
1 z$="PLANO ESTACIONARIO ORBITAL"
1 z$="MINA DE SUPERFICIE":
1 z$="DIAMANTE CONSEGUIDO!!":
1 z$="APROXIMACION AL SISTEMA":
1 y1-yd,x1-xd;" ";
1 y,x;" ";
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzz8888888888888888888888888888888888888888888888888888888888888888
1 x3-x1,y3-y1
1 x2-x1,y2-y1:
1 vidas=vidas-1
1 u()=(65536
1 tirada jugador
1 tesoro>record
1 tesoro=tesoro+1
1 teleportador
1 teleportacion
1 t$="CLASIFICA"
1 subrut. visualizacion
1 subrut. tirada semi-aleatoria
1 sub.quitar ficha
1 sub. cubrir
1 situa ficha aleatoria
1 sistema inicial
1 sc=sc+lev:
1 salida sect.
1 saldo=saldoant:
1 saldo=saldo+cant
1 saldo);saldo:
1 rutina perder
1 ruti. ganar
1 record=tesoro:
1 printer2=0
1 planeta (estrella)
1 pinta nave enemiga
1 pinta liberator
1 piloto muerto
1 piloto izquierda
1 piloto derecha
1 numdatos=0
1 nave tocada
1 nave enemiga
1 n=numdatos
1 n,e;" ":
1 liberator esplota
1 instrucciones
1 inicio del juego
1 i;" MICROHOBBY "
1 graficos****************
1 gen.sis.desde 7500
1 fuego nave enemiga
1 espacio CLS
1 division pantalla
1 datos comienzo
1 d(n)=d(n)+c(m,n):
1 d$(n)>d$(n+1
1 d$(n)=d$(n+1
1 d$(n)=a$(n,y
1 cant>999999
1 cant=-cant:
1 c(numdatos,a):
1 c(n,codig)=cant
1 c(n,codig)=0
1 c$(p);":";
1 c$(n);":";
1 c$(m);":";
1 b$(p);": ";a$(n,y
1 b$(n);": ";a$(z,y
1 b$(m);": ";a$(n,y
1 almacena posic. inic. en la matriz
1 a(z,n));a(z,n):
1 a(n,p));a(n,p):
1 a$=" D I A M A N T E S":
1 a$=" (P) AVANZA NAVE/Piloto dcha":
1 a$=" (O) DISPARA NAVE/Piloto izqda ":
1 a$=" (M) TELEPORTAR PILOTO":
1 a$=" (A) NAVE ABAJO":
1 a$=" (0) REGRESO (en el tunel)":
1 a$=" Tu mision, rescatar los diez diamantes del ~Imperio~ de las bases enemigas. Para ello de- bes esquivar o combatir a las naves adversarias.":
1 a$=" Si tu nave choca con una mi- na perderas una nave y si el piloto toca una mina de super- ficie perderas una vida. Los disparos y el teleporta- dor consumen energia, cuidala.":
1 a$=" Los invasores salen periodi- camente e intentaran destruir tu nave.":
1 a$=" Estas navegando por los sis- temas planetarios a bordo del Liberator.":
1 a$=" Cuando la nave esta parada puedes teleportarte a la super ficie del planeta y recoger los diamantes pero mientras tu nave esta indefensa. Cuando ha yas cogido los diamantes pue- des regresar por el tunel a tu sector":
1 a$=" "
1 a$(c,d*a):
1 UNO;"PONGA EN MARCHA LA CINTA";
1 Tiburon
1 TZX por Manuel Gomez Amate
1 Skiacua
1 SPACE-UNO,CERO:
1 SPACE,LINEA:
1 SPACE,CERO:
1 REGISTROS UTILIZADOS:
1 Q) NAVE ARRIBA":
1 Olimpus B
1 Mosquitos (
1 MICRO
1 MENU DE CLASIFICACION
1 Lupa
1 Laberinto
1 LUPA DE CARACTERES
1 LAST=23560
1 JUEGAS DE NUEVO (s/n)? ";m$
1 I,CERO;,,:
1 Hobby Press
1 Gangsters ,
1 Dibujo3d
1 Diamantes
1 Database
1 Contable Q
1 Castellano
1 Cargador f
1 CINTA 03 CARA A
1 CARAA
1 C$=" Por favor, elija un programa "
1 Baronrojo
1 B$=" "
1 A$="de CARACTERES":
1 A$="LUPA":
1 A$="EJEMPLO":
1 ="L")-(378
1 ;ti;" ":
1 ;n;"- ";b$(n):
1 ;n+a;"- ";c$(n):
1 ;"pulse enter para otro juego":
1 ;"pulse enter para otra carrerita ":
1 ;"pulse enter para otra carrera":
1 ;"pulse enter para empezar":
1 ;"pulsa enter para otra oportunite":
1 ;"dispone el dios Feus de solo 15 rayos":
1 ;"cara: ";
1 ;"a=";f*180
1 ;"__________________"
1 ;"_________________"
1 ;"_______________"
1 ;"________";
1 ;"VIDAS:";vidas;
1 ;"VAMOS ALLA . . ."
1 ;"VALE TITO."'''"LO HAS BORDAO"
1 ;"V I V A N L A S O L I M P I A D A S"
1 ;"Usted es el baron Von Riftofen, y su mision es penetrar a la caza de aviones y dirigibles enemigos.Si logra llevar a cabo su mision sera condeco- rado."
1 ;"Usando su pistola con las teclas:"
1 ;"Tienes que impedir ser atrapado por el tiburon y evitar sermordido porlos cangrejos."
1 ;"TIEMPO QUE TE QUEDA":
1 ;"TESOROS:";tesoro;
1 ;"TECLEA DE UNO A 19 Y ENTER"
1 ;"TECLAS DE CONTROL:";
1 ;"TECLADO:";
1 ;"TANTO LOS USUALES DEL TECLADO";
1 ;"TABLA MOVIMIENTO"
1 ;"Segun se prolonga tu busque-da, ascendera el fondo limitandotus movimientos."
1 ;"Saldo del mes anterior?"'saldoant:
1 ;"SPRAY GASTADO!!"
1 ;"SE ESTAN DIBUJANDO LAS PUERTAS":
1 ;"SE ACABARON LOS RAYITOS"
1 ;"RECORD=";hs
1 ;"RECORD="
1 ;"RECORD: ";
1 ;"R E C O R D =";record
1 ;"Quieres jugar de nuevo s/n ?"
1 ;"Querras copia por impresora de la tabla del movimiento? (s/n)"
1 ;"Querras copia impresa de la comprobacion? (s/n) ";
1 ;"QUE CARACTERES GRAFICOS?";
1 ;"Pulsa la opcion que deseas"
1 ;"Programa: ";
1 ;"Programa inexistente":
1 ;"Por: ";n$
1 ;"PUNTOS=";sc
1 ;"PUNTOS=";s;
1 ;"PUNTOS=":
1 ;"PUNTOS:";tesoro
1 ;"PUNTOS:";s:
1 ;"PULSE CUALQUIER TECLA."
1 ;"PULSA UNA TECLA PARA CONTINUAR":
1 ;"PULSA EL 1 PARA NIVEL DE INFANTE"''"PULSA EL 2 PARA EL AMATEUR"''"PULSA EL 3 PARA EL PROFESIONAL"''"PULSA EL 4 PARA NIVEL MASOQUISTA"''"OTRA TECLA PARA PRACTICAS"
1 ;"PRIMERO HAS DE ESCOGER";
1 ;"PREPARANDO LA EXPEDICION ..."
1 ;"POR TAN MEMORABLE ACCION SE LE CONDECORA CON LA GRACIOSA GRAN CRUZ DE LATA RADIACTIVA +":
1 ;"PARA LA LINEA Y COLUMNA QUE HAS";
1 ;"OTRO JUEGO? (s/n)"
1 ;"O L I M P U S"
1 ;"NUMERO DE REGISTROS: ";z:
1 ;"NUEVO RECORD."
1 ;"NIVEL (1-4)=";
1 ;"MUY BIEN";
1 ;"MISION...BIEN HECHO"
1 ;"MISION INCOMPLETA"
1 ;"METROS=0"
1 ;"MAXIMO RECORRIDO ";hs;" METROS"
1 ;"M O S Q U I T O S":
1 ;"Los rayos se disparan con las teclas: 1-2-3-4";
1 ;"Los dioses y en especial el dios FEUS estan hasta el cogote de las Olimpiadas y han decidido estropearlas fastidiando al men sajero olimpico.":
1 ;"Los dioses vencieron y las Olimpiadas ya se llaman : O E N S U C I A D A S ."
1 ;"LOS NUMEROS DE LINEA Y COLUMNA";
1 ;"LINEA Y COLUMNA";
1 ;"JUGAMOS OTRA PARTIDA (s/n)"
1 ;"INTRODUCE OPCION";
1 ;"INTERCEPTOR DESTRUIDO. KAPUT. "
1 ;"Has conseguido destruir esta plaga. Te atreves con otra ?"
1 ;"HUIDOS "+
1 ;"HE GANADO"
1 ;"HASTA LA PROXIMA!":
1 ;"HAS RECORRIDO ";o;" METROS";
1 ;"HAS GANADO"
1 ;"HAS CONSEGUIDO TU"
1 ;"GAME OVER":
1 ;"G R A F I C O S";
1 ;"G A N G S T E R S"
1 ;"FICHERO COMPLETO"''''"Pulsa una tecla":
1 ;"FECHA CD DEBE HABER SALDO"
1 ;"FALTAS=0"
1 ;"Este es usted
1 ;"Este es el enemigo
1 ;"El objetivo, efectuar el mayor numero de aciertos durante 1 minuto."
1 ;"El mensajero olimpico ha podido mas que los dioses";
1 ;"ESTUDIALO Y REPITE"
1 ;"ESTE PROGRAMA PERMITE AMPLIAR";
1 ;"ESTADIOS ";v
1 ;"ESTA MAL:PRUEBA DE NUEVO":
1 ;"ESCOGIDO ;LA AMPLIACION ES";
1 ;"ES USTED UN DESASTRE Y MAS QUE BARON ROJO SE HA GANADO USTED A PULSO EL NOMBRE DE: N E F A S T O B A R O N N E G R O.":
1 ;"ENERGIA"
1 ;"ELIGE POR ESTE ORDEN";
1 ;"EL NUMERO MAXIMO DE REGISTROS CON EL QUE PUEDES TRABAJAR ES DE: ";c
1 ;"EL C. PARPADEANTE CORESPONDE";
1 ;"Destruido por derrochador !! "
1 ;"Deseas intrucciones? (s/n)"
1 ;"Debe disparar al forajido que aparecera detras del coche, bidon, pared ..."
1 ;"DESTRUIDOS "+
1 ;"DESEO AMPLIAR x2,x3..." ;
1 ;"DEMASIADO GRANDE";
1 ;"DEL EXTREMO SUPERIOR IZQUIERDO";
1 ;"DE LA IMAGEN AMPLIADA";
1 ;"Cuantos datos vas a introducir?"'numdatos:
1 ;"Cuantos codigos existen? "'a:
1 ;"Conforme (S/N)"
1 ;"Casi lo consigues!!"
1 ;"CUANTO DESEAS AMPLIAR?";
1 ;"CUALQUIER CARACTER GRAFICO";
1 ;"CORRECTO":
1 ;"COMO LOS DEFINIDOS POR EL USUA-RIO";
1 ;"COLOR DE FONDO Y TINTA"
1 ;"CODIGO DEBE HABER":
1 ;"Alguno mas? (S/N)"
1 ;"AMPLIACION DESDE x2 a x19"
1 ;"ALCANZADOS "+
1 ;"AHORA TU CUERPO SERRANO ":
1 ;"AHORA LAS TUBERIAS":
1 ;"A LA LINEA 5, COLUMNA 18"
1 ;"8 4"
1 ;"7 6 5"
1 ;"1 2 3"
1 ;"..........":
1 ;",";"Coordenada:";
1 ;"(q) SUBIR"
1 ;"(p) AVANZAR ";
1 ;"(o) IZQUIERDA (p) DERECHA (m) FUEGO"
1 ;"(a) BAJAR";
1 ;"'R' Vuelve al menu"
1 ;"'L' Carga el programa";
1 ;"'DISPARE'"
1 ;"# LISTADO COMPROBACION TOTALES #":
1 ;" g=";g*180
1 ;" con:?");a(i,4
1 ;" b=";b*180
1 ;" Y SITUARLOS EN CUALQUIER PUNTO DE LA PANTALLA,E INVERTIRLOS";
1 ;" Todo correcto. Fin de programa."
1 ;" PULSA UNA TECLA PARA OTRO JUEGO"
1 ;" PULSA UNA TECLA "
1 ;" Eres un buscador de tesoros en las profundidades marinas."
1 ;" CAMPEON
1 ;" PULSE UNA TECLA PARA JUGAR ":
1 ;" 3 EN RAYA ":
1 ;" ## PULSA UNA TECLA ## ":
1 ;" ## VERIFICANDO ## ":
1 ;" ";
1 ;" ":
1 ;" "
1 ;" ":
1 ;" ";
1 ;" ";
1 ;" ":
1 3enraya
1 -c;" Disp. usados";
1 ,y10-((a+2
1 ,x;" "
1 ,x;" ";
1 ,x1-xd;" ":
1 ,D.L.: M-36598-84
1 ***tesoro***
1 ***subrutinas***
1 ***recogida tesoro***
1 ***puesta en pantalla***
1 ***instrucciones***
1 ***hombre cazado***
1 ***graficos***
1 ***devorado por el tiburon***
1 ***cazar tiburon***
1 ***cangrejo***
1 ***borrar el hombre***
1 ******GANGSTERS*******
1 *** CINTA-MICROHOBBY ***
1 *((hh-vh=13
1 );" ");a(p+1
1 );" ");a(i,j):
1 (y1,x1)=41
1 (y1,x1)=174
1 (n);" ";b$(n):
1 (c$(m));" NUEVO DATO?"'a(n,m)
1 (b$(m));" NUEVO DATO?"'a$(n,y
1 (VALOR)<"A"
1 ("Punto:";p;",";"Coordenada:";
1 ("Punto:";i-1
1 ("El punto:";i-1
1 ("El punto:";c;" con:?");a(c+1
1 ''''''" ANDA BAJA DE NIVEL Y SUERTE":
1 '''"Conforme? (S/N)"
1 '''" Bueno, la tabla de variables ya esta lista para ser grabada."''" Antes de hacerlo, quieres rea- lizar un listado de comproba- cion de todos los codigos y sus correspondientes totales?"''" Pulsa ""s"" o ""n""."
1 ''"Continuamos? (S/N)"
1 ''" Fase de grabacion; introduce a continuacion la etiqueta con la que quieres designar a las variables recien itroducidas."
1 ''" Los mosquitos atacan en olea- das de 20 y solo dispones de 50 disparos."''" Si los malgastas , no tendras posibilidades de sobrevivir."
1 ''" (O) Spray izquierdo "'" (P) Spray derecho "''
1 '" Recuerda que este titulo no debe sobrepasar los 10 carac- teres."
1 '" De acuerdo; el titulo es:"''" """;e$;""""
1 '" Bien, ahora rebobina y pulsa una tecla para verificar."
1 '" ## GRABACION ## "
1 "velocidad enemigo 1 a 5= ";j:
1 "cm-laber"
1 "beta:",b:
1 "alfa:",f:
1 "a"+h,hom:
1 "a"+c,canie:
1 "a"+a,cod:
1 "Ya sabe Baron, la gloria le es- pera .SUERTE Y AL TORO."
1 "Y con:?";a(i,5
1 "Y con:?";a(c+1
1 "Tinta:",t:
1 "TU TIRAS ";x
1 "TU NOMBRE ?";n$:
1 "TITULO DEL CAMPO NUMERICO ";(n)'c$(n):
1 "TITULO DEL CAMPO ALFANUMERICO ";
1 "TECLEA CUALQUIER CARACTER O PALABRAS ";A$
1 "Sus mandos son: 1 - arriba":
1 "Son correctos: s/n ?":
1 "Son correctas las conexiones: s/n ?":
1 "SISTEMA PLANETARIO 4: CEPHLON","SISTEMA PLANETARIO 5: CENTERA"
1 "SISTEMA PLANETARIO 1: ARISTO","SISTEMA PLANETARIO 2: AMERSAT","SISTEMA PLANETARIO 3: BHIOS"
1 "SELECCIONE NIVEL: de 5-Dificil a 1-Facil ";lev:
1 "REGISTRO No. ";n''':
1 "REGISTRO No. ";n'''
1 "QUE REGISTRO QUIERES MODIFICAR?"'n:
1 "QUE FICHA MUEVES ? ; ",h
1 "QUE CAMPO QUIERES MODIFICAR?"'m
1 "Punto:";c
1 "Punto:",p:
1 "Papel:",c:
1 "PUNTOS: "
1 "PULSA PLAY,Nombre ? ";a$
1 "PARA CARACTER NORMAL PULSA 1: PARA CARACTER INVERTIDO PULSA 2 ";RA:
1 "OTRA PARTIDA?(s/n)";
1 "Numero de datos ?";n:
1 "Nombre del fichero:";a$
1 "No. DE ORDEN: ";n;" / ";z'''
1 "No. DE ORDEN ";m;" / ";z'"CLASIFICADO POR: ";u$'''
1 "NUMERO DE ORDEN: ";z'"QUEDAN ";c-z;" REGISTROS"''':
1 "NUEVA POSICION ; ",i
1 "NOMBRE DEL PROGRAMA? (Max. 10)"'
1 "MicroHobby Semanal numeros 09 a 12
1 "Menu: pulsa m",a$:
1 "Introduce la opcion que deseas"'y
1 "Introduce fecha (DD MM) ";f;" / ";e
1 "INSTRUCCIONES? (s/n)";
1 "I-Dibujo3d","J-Tiburon","K-Baronrojo","L-Olimpus","M-3enraya"
1 "Gamma:",g:
1 "Final; para seguir, ""ENTER"".";
1 "Final comprobacion; ""ENTER"".";
1 "Etiqueta: ";
1 "Escala:",e
1 "EN QUE LINEA QUIERES QUE APAREZCA ";L
1 "EN QUE COLUMNA QUIERES QUE APAREZCA ";C
1 "E-Mosquitos","F-Gangsters","G-Skiacua","H-Lupa"
1 "DEFINE COLOR DE TINTA(0/7)";T
1 "DEFINE COLOR DE FONDO(0/7)";P
1 "DEBE o HABER? (d/h) ";
1 "DATO EN: ";(c$(n))'a(z,n):
1 "DATO EN: ";(b$(n))'a$(z,y
1 "Coordenada:1,2,3 para x,y,z ",c:
1 "Codigo? ";codig:
1 "Centro y:",cy
1 "Centro x:",cx
1 "Cantidad? ";cant:
1 "CUANTOS CAMPOS NUMERICOS TE RESERVO PARA CADA REGISTRO?"'b:
1 "CUANTOS CAMPOS ALFANUMERICOS TE RESERVO PARA CADA REGISTRO?"'a:
1 "CLASIFICA"
1 "CARACTER DERECHO PULSA 1: IZQUIERDAS PULSA 2 ";SA
1 "CANTIDAD DE DIGITOS POR CAMPO?"'d
1 "Border:",c:
1 "Atento a pulsar..."
1 "Ahora las conexiones:":
1 "AMPLIACION?";M:
1 "A-Diamantes","B-Laberinto","C-Database","D-Contable"
1 "32"-I;C$(
1 "3 EN RAYA"
1 "22",CERO;C$(I
1 "22",CERO;B$:
1 "22",CERO;B$
1 "22",CERO;
1 "2 - abajo":
1 "''"1- INICIALIZAR FICHERO"''"2- A\ADIR UN REGISTRO"''"3- MODIFICAR UN REGISTRO"''"4- LISTAR REGISTROS INTRODUCIDOS"''"5- CLASIFICAR"''"6- LISTAR REGISTROS CLASIFICADOS"''"7- GRABAR PROGRAMA"''''"
1 "''" Tienes dos sprays para acabar con los mosquitos"''
1 "# Pulsa ""ENTER"" # ";
1 " y-Centro y"
1 " x-Centro x":
1 " g-Giro segun z.":
1 " e-Escala.":
1 " b-Giro segun y.":
1 " a-Giro segun x.":
1 " En opcion 4:":
1 " 5-Papel,Borde...":
1 " 4-Dibujar."
1 " 3-Leer datos."
1 " 2-Grabar datos."
1 " 1-Crear datos."
1 clears bright
1 Tunel salida del sistema":
1 Piloto
1 PULSE UNA TECLA PARA CONTINUAR
1 PULSE ENTER PARA CONTINUAR
1 Nave enemiga":
1 Mina espacial":
1 LIBERATOR
1 J.Maranon 1984"
1 E L B A R O N R O J O
1 Diamante
1 Base minada":
1 A.Maranon.1984":
1 1982 Sinclair Research Ltd."
1 PULSA UNA TECLA PARA JUGAR
1 PULSA UNA TECLA PARA JUGAR
1 JOU SOFTWARE 1984":
1 PULSA UNA TECLA PARA JUGAR
1 CREACION PANTALLA
1 MOSQUITOS